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COMMODORE 128 COMAL 


I dette C-128 Tillæg beskrives de nye og udvidede muligheder, som 
brugeren af en C-128 COMAL kapsel version 2.02 kan udnytte. 
Dette Tillæg er et supplement til manualen COMAL for Commodore 
64 og bør indsættes bagest i ringbindet. 


Med en C-128 COMAL kapsel til rådighed har man ikke blot et 
fremragende EDB-sprog til disposition. I kapslen følger redigerings- 
muligheder og et arbejdsmiljø for programmøren, som kan måle sig 
med de bedste, der findes i verden i dag. 


OPSTIL DATAMATEN 


Har man tidligere benyttet C-64 COMAL kapslen, skal man blot 
slukke for datamaten og tilbehør og udskifte C-64 kapslen med den 
nye C-128 kapsel. 


Er Commodore 128 maskinen en nyanskaffelse, følg da vejledningen 
i Deres C-128 manual. Opstil datamaten, tilslut skærmen og diskette- 
stationen (eller båndoptageren). 


DE TO TEKSTSKÆRME 


Hvis De bruger en farveskærm, læg da mærke til, om Deres skærm 
er en "RGB" skærm, som er i stand til at vise 80 tegn på hver linie, 
eller en "PAL" type, som kun kan vise 40 tegn pr. linie. Hvis De 
bruger Commodores 1901 skærm, kan De tilslutte to sæt kabler, og 
ved hjælp af en omskifter t.v. på skærmens betjeningspanel, kan De 
skifte frem og tilbage mellem RGB (80-tegnsskærm) og PAL (40- 
tegnsskærm). 


Begge skærme kan bruges med Deres C-128 kapsel. Der er mange 
fordele ved at benytte 80-tegnsskærmen, især ved programredigering 
og til programmer, der håndterer tekst. Hvis man vil vise sprites 
eller anden farvegrafik, er det nødvendigt at skifte over til 40- 
tegnsskærmen. Bemærk også, at de programmer, der beskrives i 
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COMAL for Commodore 64, altid bruger 40-tegnsskærmen. 


Det er også muligt at køre et program, der udnytter begge skærme 
på én gang. Er to skærme tilsluttet, kan der vises farvegrafik på 
40-tegnsskærmen, evt. med sprites i bevægelse, mens der vises tekst 
på 80-tegnsskærmen. 


Bemærk, at procedurerne textmode(1) og textmode(0) i systempakken 
gør det muligt at skifte mellem 80-tegns- og 40-tegnsskærmen under 
programudførelse. Fra tastaturet kan man taste sekvensen <ESC><X> 
for at skifte frem og tilbage mellem de to skærme. Funktionen 
ingsys(5) fra systempakken kan bruges til at oplyse om den aktuelle 
skærmtilstand. Se mere herom under afsnittet Tillæg til system- 
pakken. 


Tasten <40/80 Display> øverst på C-128 kan også bruges til at 
vælge skærm. Hvis tasten er nede, når datamaten tændes, vælges 
80-tegnsskærm. Er tasten oppe, vælges 40-tegnsskærm. 


OPSTART 

Er datamaten nu opstillet med kapslen på plads, kablerne tilsluttet 
og den rigtige skærm valgt, kan De tænde for datamaten og til- 
behøret og begynde at bruge C-128 COMAL. Hvis en diskettestation 
er til rådighed, indsæt da C-128 Demodisketten, og skriv: 


LOAD "C-128 demo" <Return> 


Skriv så RUN og tast <Return> (eller tryk bare <F7> ligesom på 
64'eren). 


Når programmet har kørt lidt, afbryd det ved hjælp af <RUN/STOP> 


tasten. Prøv så at indtaste LIST (evt. <F6><Return>), og bemærk 
udskriften, gerne på 80-tegnsskærmen, hvis den er til rådighed. 


C-128 SKÆRMREDIGERING 


Har man nogensinde ønsket, at det kunne lade sig gøre at rulle en 
programlistning både op og ned på skærmen, får man sit ønske 
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opfyldt nu. Tast <Alt-Markør Op> (altså hold <ALT> nede - den er 
øverst på tastaturet, tredie taste fra venstre - og tryk på pil opad- 
også øverst, længere mod højre). Voila! Nye programlinier kommer 
til syne ovenfra og nedefter. Tryk <Alt-Markør Ned>, og nye pro- 
gramlinier kommer nedfra, programudskriften ruller opad. De andre 
markørtaster (nederst) kan også bruges til dette formål. 


Ligesom med C-64 COMAL kan man starte/stoppe udskriften ved at 
taste <Mellemrum>. På den anden side kan man ikke længere holde 
<Ctrl>-tasten nede, mens programmet listes, for at få en langsom 
listning. Brug <Alt> og markørtasterne for at køre langsomt op og 
ned 1 udskriften. 


Med den nye COMAL-kapsel har UniComal tilstræbt en standard- 
isering i forhold til den eksisterende skærmredigering på C-128. 
Derfor er der en del ændringer i forhold til C-64 kapslen. Se 
Appendiks B for en oversigt over alle <Alt>-, <Ctrl>- og <Esc>- 
koder og de ændringer, der er sket. 


NYE MULIGHEDER MED C-128 COMAL 


Man lærer mest om C-128 COMALSs mange muligheder ved at bruge 
sproget og dets faciliteter til løsning af nogle konkrete programmer- 
ingsopgaver. De korte programeksempler i forbindelse med beskriv- 
elsen af de enkelte nøgleord og de længere eksempler på C-128 
Demodisketten kan måske give idéer og inspiration hertil. Udover 
det, at man får 40K 1 stedet for 30K til brugerprogrammer, adgang 
til brugen af hele C-128 tastaturet, og at disketteoperationer med 
C-128 kapslen er blevet meget hurtigere, er der mange andre nye 
muligheder. Her er højdepunkterne af de nye faciliteter: 


£ Udvidede INPUT faciliteter: Nu kan programmøren bruge nye 
procedurer fra systempakken til at gøre programmer mere 
brugervenlige. Under indtastning kan man bruge forskellige 
taster, f.eks. <Markør Op> og <Markør Ned>, til at afslutte en 
indtastning, så markøren hopper op eller ned til andre input- 
felter. Se under inputpos, termchars, termpos og termchar$ for 
mere herom. 


=£ C-128 Fontpakken: C-128”eren har jo mulighed for at bruge 
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enten 40-tegns- eller 80-tegnsskærme. Derfor er fontpakken 
udvidet, så der også kan bruges brugerdefinerede tegnsæt på 
80-tegnsskærmen. Se mere herom under Andre nøgleord. 


Nve redigeringsmuligheder: Der er kommet mange flere redig- 
eringsfaciliteter. Nu kan man rulle programmer opad eller 
nedad, indsætte ekstra linier på skærmen eller 1 programmer, 
sætte vinduer og skifte mellem 40- og $80-tegnsskærm. Hvis 
man f.eks. får brug for at indskyde flere programlinier lige 
efter programlinien, hvor markøren står, skal man blot taste 
<Alt-N>, og nye linienumre genereres automatisk! Se Appendiks 
B for en oversigt over alle disse muligheder. 


RAM- filer: Én af de virkelige store nyskabelser i C-128 kapslen 
1 forhold til C-64 kapslen er muligheden for at lagre filer på 
op til 40K i RAM. UniComal har udnyttet et ubrugt 40K lager- 
område til dette formål og forsynet brugeren med over 20 
procedurer og funktioner i COMAL-pakken ramfiles. Der findes 
en nærmere beskrivelse af de mange muligeheder 1 afsnittet, 
Den nye ramfiles pakke. Se også demonstrationprogrammet 
"RAMFILES" på C-128 Demodisketten. 


Kommunikation både med databaser og med andre datamater er 
blevet gjort lettere med C-128 kapslen. Flere procedurer og 
funktioner er blevet føjet til systempakken til håndtering af 
RS-232 grænsefladen. Et brugervenligt kommunikationsprogram 
vil hermed blive meget lettere at lave. 


KOMPATIBILITET MED C-64 COMAL 


Under udviklingen af C-128 COMAL har UniComal søgt at gøre det 
let at føre C-64 COMAL programmer over til den nye COMAL. (Da 
C-128 COMAL rummer mange nye procedurer og funktioner, vil det 
normalt ikke være så let at gå den anden vej.) 


Hvis man har et C-64 program, som skal bruges med den nye kapsel, 
kan man normalt blot indlæse programmet på normal vis ved hjælp 
af LOAD kommandoen. 


Er der undtagelsesvis tale om et program, hvortil der er knyttet et 
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maskinkodeprogram ved hjælp af LINK kommandoen, skal følgende 
fremgangsmåde benyttes: 


x 


Start med C-64 eller C-128 kapslen på plads 1 C-128'eren. 
Indlæs C-64 programmet ved hjælp af LOAD kommandoen. 
LIST så programmet til diskette: 


LIST "programnavn" 


Sørg nu for, at den nye C-128 COMAL kapsel er på plads. Det 
vil måske være en god idé at initiere en helt ny diskette ved 
hjælp af PASS kommandoen, inden man fortsætter. Man kan 
f.eks. skrive: 


PASS "n0:C-128 programmer,01" 


Bemærk, at man hermed opnår, at der bliver plads til 1328 
blokke (å 254 tegn), hvis man har en 1571 diskettestation 
tilsluttet. Der bliver altså plads til dobbelt så mange blokke 
som på C-64'erens 1541 disketter. 


Sæt C-64 disketten på plads, og hent C-64 programmet ind ved 
hjælp af ENTER: 


ENTER "programnavn" 


Brug C-128”erens redigeringsmuligheder for at tilpasse pro- 
grammet, så det kører korrekt på 80-tegnsskærmen, mm. Når 
man er færdig, kan det lagres på C-128 disketten ved hjælp af 
SAVE kommandoen. 


Benyt så "C128SYMB" på C-128 Demodisketten med Deres 
assembler i stedet for "C64SYMB" for at tilpasse maskinkode- 
programmet til 128'eren. Se vejledningen om maskinkode i 
Appendiks C for mere herom. Når COMAL-programmet og 
maskinkoden er i orden, kan man bruge LINK for at tilknytte 
maskinkodeprogrammet, så det kan blive gemt med programmet 
på en samlet fil ved hjælp af SAVE. 
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NØGLEORDSOVERSIGT 


I dette afsnit finder De en kort beskrivelse af alle nye eller revi- 

derede nøgleord, der findes i C-128 COMAL. Øvrige faciliteter står 
allerede beskrevet 1 COMAL for Commodore 64. Her er alle 
nye/reviderede nøgleord (s=sætning, c=kommando, p=procedure, 
f=funktion) emnegrupperede. Desuden anføres, om nøgleordet hører 
til COMAL-kernen, er en udvidelse, eller om det hører til en pakke. 


I efterfølgende afsnit, Tillæg til systempakken, Den nye ramfiles 
pakke og Andre nøgleord, findes en nærmere beskrivelse af de 
enkelte nøgleord, ordnet alfabetisk inden for hvert afsnit. 


Nye muligheder med PRINT og INPUT sætninger 


PRINT Se kernen separatorerne ; og , får ny 
betydning. 

ZONE sc kernen virker nu på ; ikke ,. 

option(1) p system tillader brugen af den gamle 
definition på ZONE. 

INPUT s,C kernen ; og , får ny betydning, når de 


undertrykker linieskift 1 slut- 
ningen af en INPUT sætning. 


inputpos pD system placerer markøren 1 INPUT- 
feltet. 

termchars pD system bestemmer afslutningstegn(ene) 
1 INPUT-sætningen. 

termpos f system oplyser om markørposition ved 
INPUT afslutning. 

termchar$ f system returnerer == tegnkoden for 
INPUT afslutningstegnet. 

GET$ f kernen henter et specificeret antal 


tegn fra en given fil (er med 
både i C-64 og C-128 kapslen). 


RAM-tfiler i C-128'erens 40 KB ekstra hukommelse 


ramfiles pakke ramfiles navn på ny pakke til ramfiler 
1 40K RAM område. 

deleteallrf p ramfiles fjerner alle ramfiler. 

deleterf p ramfiles fjerner bestemt ramf il. 
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createrf 
eofrf 
posrf 


writenum 
readnum 


getnum 
writestr 
writerefstr 
readstr 
getstr$ 
writerec 
writerefrec 
readrec 
getrec$ 
ingrf 
saverf 
loadrf 
saveallrf 
loadalirf 
fleldtype$ 


freerf 


SIZE 


mrke) 


BT 


nrkolkelkelke 


ramfiles 
ramfiles 
ramfiles 


ramfiles 
ramfiles 


ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 
ramfiles 


ramfiles 


kernen 


opretter en ramfil. 
indikerer slut på en ramfil. 
anbringer filpointer i en ramfil. 


skriver et tal til en ramfil. 
henter et tal fra en ramfil 1 
form af en REF parameter. 
returner et tal fra en ramfil. 
skriver en streng til en ramfil. 
lagrer en REF streng i en 
ramfil. 

henter en streng fra en ramfil 
1 form af en REF parameter. 
returnerer en streng fra en 
ramf il. 

skriver en formatteret post til 
en ramfil. 

skriver en formatteret REF 
post til en ramfil. 

læser en formatteret post fra 
en ramfil. 

henter en formatteret post fra 
en ramfil. 

kan bruges til at afsløre for- 
matet af ukendt ramfil. 

lagrer en ramfil til disk. 
henter en hel ramfil fra disk. 
lagrer alle ramfiler til disk. 
henter alle ramfiler fra disk. 
returnerer feltbeskrivelses- 
teksten for en ramfil. 
returnerer antal frie bytes i 
ramfil-området. 

udvidet så der også angives 
antal brugte og ledige tegn i 
ramfiles området. 


Tegnkonvertering, kommunikation og filer 


setmapping p system styrer tegnkonvertering 1 
filsystemet når /a+ bruges. 
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resetmapping p 
char”in”buffer f 
clearbuffer  p 


rs232status f 


GET$ f 
IN re 
option(2) D 


setserialport op 
bin$ f 


hex$ f 


Brugen af fonts 
discardfont sp 
selectfont pD 


Håndtering af skærme og farvevalg 


textmode p 
textwindow Sp 
getscreen2 D 
setscreen2 D 
textcolor D 


textborder pD 


textbackground p 
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system 
system 
system 
system 
kernen 
kernen 
system 
system 
system 


system 


font 
font 


system 


system 
system 


system 
graphics 
graphics 


graphics 


sætter normal Commodore 
mapping. . 
returnerer antal tegn 1 RS-232 
sende- eller modtagebuffer. 
tømmer RS-232 sende- eller 
modtagebuffer. 

returnerer værdien af seriel- 
portens statusregister. 

ændret for forbedret seriel 
kommunikation. 

"IN streng$ returnerer nu 
FALSE (altså 0). 

anvendes ved relative filer for 
at undgå fejl 1 1541/1571 drev. 
indstiller serielportens kom- 
munikationsparametre. 
returnerer streng svarende til 
binær repr. af et tal. 
returnerer streng svarende til 
hexadecimale repr. af et tal. 


genopretter standardtegnsættet. 
skifter til det angivne tegnsæt. 


skifter mellem 40- og 80-tegns- 
skærm. 

sætter tekstvindue. 

kopierer indholdet af et tekst- 
vindue til en streng. 

overfører informationer fra en 
streng til et tekstvindue. 
ændrer markørfarven på 40- 
tegnsskærmen. 

ændrer kantfarven på 40-tegns- 
skærmen. 

ændrer baggrundsfarven på 
40-tegnsskærmen. 
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textcolors p 


plottext D 
vdcpoke p 
vdcpeek f 
ingsys f 


cursormode sp 


system 
graphics 
system 
system 
system 


system 


Hop til og fra COMAL, mm. 


BASIC c 
monitor D 
cpuspeed D 
TRACE e 


udvidelse 
system 
system 


kernen 


Klokken, sprites og grafikdump 


bell p 
getshape$ f 
hardcopymode p 
14 


system 
sprite 


system 


ændrer farverne på den akt- 
uelle skærm. 

skriver tekst på 40-tegnsskær- 
men men ikke 80-tegnsskærmen. 
skriver direkte til registrene 1 
80-tegnsskærmens styreenhed. 
læser registre 1 80- 
tegnsskærmens styreenhed. 
returnerer diverse  system- 
parametre. 

tænder, slukker eller ændrer 
markøren på 80-tegnsskærm. 


systemet forlader COMAL og 
går ind 1 Commodore BASIC 7. 
systemet går til maskinkode- 
monitoren. 

bruges til at vælge clock- 
frekvens. 

bruges til at iværksætte en 
sporing af programforløbet. 


giver en lyd. Kan nu afbrydes. 
returnerer en streng med en 
tegning. 

styrer udskrift af tekstskærmen 
til printer (hardcopy). 
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TILLÆG TIL SYSTEMPAKKEN 


Når man skriver USE system som kommando direkte fra tastaturet, 
eller sætningen USE system udføres i et program, bliver et stort 
antal nyttige procedurer og funktioner gjort tilgængelige. Også i C- 
128 kapslen har man adgang til alle de faciliteter, som er beskrevet 
1 COMAL for Commodore 64, Kapitel 5. 


Udover alle disse faciliteter er der kommet mange nye og udvidede 
muligheder. Disse kan i store træk inddeles som: 


£. forbedret udnyttelse af RS-232 grænsefladen, herunder mulighed 
for avancerede kommunikationsprogrammer, så Deres C-128 kan 
bruges med databaser; 

£. fuld udnyttelse af C-128”erens 80-tegnsskærm, inklusiv brugen 
af vinduer, styring af cursormåde, skærmdump til printer, 
trykning af anførselstegn på Commodore printere, mm.; 

sk 


specielle funktioner og procedurer til at skabe kompatibilitet 
med C-64 programmer (se option). 


Her er en oversigt, ordnet alfabetisk, af de nye og ændrede pro- 
cedurer og funktioner, som Deres COMAL kapsel version 2.02 
rummer. 


bell(varighed/) 


er en procedure, som anvendes til at lave COMAL lydsignalet (klok- 
ken). Varighedt lig med 1 svarer til den normale COMAL-klokke. 
Som noget nyt kan lyden slås fra og slås til. 


Eksempel: Tast sekvensen <Esc><H> - klokken lyder nu ikke ved 


fejl eller ved brug af bell som procedure. Tast sekvensen 
<Esc><G> - klokken er slået til igen. 
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bin$ (værdi) 


er en strengfunktion, som returnerer strengen svarende til den 
binære repræsentation af parameteren værdix (0 til 65536). F.eks. 
returnerer bin$(255) strengen "0000000011111111". 


char'in' buffer (retning) 


er en funktion, som returnerer antallet af tegn i RS-232 bufferne. 
Parameteren retning: lig med 0 betyder modtagebuffer, og lig med 
1 betyder sendebuffer. 


clearbuffer (retning) 


er en procedure, som tømmer RS-232 modtage- hhv. sendebuffer, 
når retningik er 0 hhv. 1. 


cpuspeed (tilstand) 


er en procedure, som kan anvendes til at bestemme clockfrekvensen. 
Tilstand kan være lig med 0, 1 eller 2. Standardværdien er 0. 


Eksempler: cpuspeed(0) COMAL vælger selv clockfrekvensen: 
1 MHz vælges for 40-tegnsskærm 
eller grafik, ellers vælges 2 MHz. 

cpuspeed(1) clockfrekvensen vælges til konstant 
1 MHz. 

cpuspeed(2) clockfrekvensen vælges til konstant 
2 MHz. 40-tegnsskærmen blankes og 
kan ikke bruges i dette tilfælde. 


cursormode (tilstand; ) 


er en procedure, som kan anvendes til at tænde, slukke og ændre 
markøren på 80-tegnsskærmen. Parameteren tilstandit har følgende 
betydning: 
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tilstandtt 0: slukker markøren 
l:…… tænder markøren i aktuel tilstand 
2:…… tænder ikke-blinkende blokmarkør 
3:…… tænder blinkende blokmarkør 
4: tænder hurtigblinkende blokmarkør 
S: tænder ikke-blinkende stregmarkør 
6: tænder blinkende stregmarkør 
7:… tænder hurtigblinkende stregmarkør 
Eksempel: 0010 PAGE 


0020 USE system 
0030 cursormode(5) 
0040 LOOP 

0050 PRINT KEYS$, 
0060 ENDLOOP 


Ovenstående eksempel viser en ikke-blinkende stregmarkør på skær- 
men. Tegn fra tastaturet bliver trykt (uden vognretur) indtil pro- 
grammet afbrydes med <Run/Stop>. (Under en INPUT-sætning blive 
markøren altid tændt.) 


getscreen2 (skærm $) 


er en procedure, som gemmer en del af (evt. hele) tekstskærmen. 
Billedinformationen svarende til det aktuelle vindue gemmes i stren- 
gen skærm$8$. Det lagrede billede kan hentes frem igen ved hjælp af 
proceduren setscreen2(skærm$). Bemærk, at getscreen2 og setscreen2 
ikke er kompatible med getscreen og setscreen, som kun arbejder 
på 40-tegnsskærmen og som altid arbejder med hele skærmen. 
Bemærk, at setscreen2 og getscreen2 ikke kan bruges til at overføre 
skærmbilleder fra 40-tegnsskærmen til $80-tegnsskærmen eller 
omvendt. Et eksempel på brugen af getscreen2 kan ses på C-128 
Demodisketten (se "demo.window.80" og "demo.window.40"). 


hardcopymode (tegnsætmåde;t,quotemåde;t) 


er en procedure, som bruges til at styre udskrift af tekstskærme til 
en printer. Parameteren tegnsætmådert kan være lig med 0 eller 1: 
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tegnsætmådett=0 er defaultværdien og angiver, at COMAL vælger 
store og små bogstaver eller store bogstaver 
og grafik afhængigt af, hvad der aktuelt er på 
skærmen. I 40-tegnstilstand gælder samme 
tegnsæt for hele skærmen, mens der 1 80-tegns- 
tilstanden gælder, at de to tegnsæt kan blandes. 


tegnsætmådet=1 angiver, at tegnsæt ikke ændres ved skift på 
skærmen, men alene ud fra setprinter pro- 
ceduren 1 systempakken. 


Størrelsen quotemådett angiver, hvorledes skrivning af anførsels- 
tegnet " klares på printer. På Commodore printere resulterer skriv- 
ning af et ulige antal " i, at printeren skifter over til quote måde. 
Dette resulterer i, at kontroltegn skrives i negativ skrift. Dette 
indebærer, at det ikke er muligt at skifte tegnsæt og slå negativ 
skrift fra og til. I C-64 COMAL er dette søgt løst ved at konvertere 
tegn skrevet 1 negativ på skærmen efter et ulige antal " til kontrol- 
koder, som jo skrives i negativ skrift. Herved kan nogle af tegnene 
skrives korrekt på printeren. C-128 COMAL er udvidet med nogle 
andre muligheder for at løse dette problem. Disse kan vælges ved 
hjælp af parameteren quotemåder. 


quotemådett=0 angiver, at tegnet " skrives som grafik og 
derved ikke aktiverer quotemåde i printeren. 
Dette kræver dog, at printeren er kompatibel 
med Commodores MPS-$801 printer til grafik- 
udskrift. Denne værdi vælges ved opstart. 


quotemådett= I angiver C-64 COMAL tilstand. I denne tilstand 
bør quotemådett sættes lig med 1, da skift 
mellem tegnsæt ellers kan resultere i udskrift 
af nogle ekstra tegn i negativ skrift. 


quotemåde+=2 til 255 angiver, at der i stedet for tegnet " 
skrives CHR$(quotemådex ). På denne måde 
er det muligt at skrive et andet tegn i 
stedet for ", f.eks. apostrof ” eller 
CHR$(254), som er et programmerbart 
tegn på en Commodore MPS 802 printer. 
På printere, hvor quotemåde ikke er 
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indført eller kan slås fra, vælges quote- 
mådert=34, som giver udskrift af det nor- 
male " tegn. 


Ved opstart udføres der automatisk hardcopymode(0,0). 


hex$ (værdi) 


er en strengfunktion, som returnerer strengen svarende til den 
hexadecimale repræsentation af parameteren værdit (0 til 65536). 
F.eks. returnerer hex$(255) strengen "00ff". 


inputpos (position;6) 


er en procedure, som sætter markørens relative startposition 1 et 
inputfelt. Et 1-tal angiver første position. Inputpos gælder for den 
efterfølgende INPUT sætning og sættes herefter til 1 igen. Den 
sættes også til I ved RUN. Se programmet "demo.termchar.8$0" på 
C-128 Demodisketten. 


ingsys (type7ø) 


er en funktion, som returnerer følgende værdier afhængig af para- 
meteren typer: 


typett: 1 tekstvindue række min. 

2 tekstvindue række maks. 

3: tekstvindue søjle min. 

4: tekstvindue søjle maks. 

5 teksttilstand - returnerer 0 hhv. 1 for 40- hhv. 80- 
tegnsskærm. 

6: aktuel cpuspeed - returnerer 1 hhv. 2 for 1 hhv. 2 
MH1z. 


monitor 


er en procedure, som kan bruges til at kalde maskinsprogsmonitoren 
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fra COMAL. Der returneres fra monitoren på normal måde med en 
X-kommando. Returneringen foregår ved hjælp af en fejlmeddelelse 
"monitor terminated". Det er derfor også muligt at kalde monitoren 
fra et kørende program og så fange retur fra monitor ved hjælp af 
fejlhåndtering. Dette kan være en stor hjælp under fejlretning af 
maskinsprogsprogrammer. Bemærk, at hvis der anvendes et "soft- 
loadet" tegnsæt i 40-tegnsskærmen, kan monitoren ikke kaldes fra 
denne skærm; det samme gælder desuden fra splitscreen. Dette 
skyldes, at skærmeditor kaldt fra monitoren ikke kan anvende 
skærmhukommelsen, der ligger "under" monitor ROM'en. Hvis det 
forsøges, gives en fejlmeddelelse. 


option (1,gammel;) 


er en procedure, som gør det muligt at skifte til den gamle defini- 
tion af printskilletegn komma (,) og semicolon (;). (Se også ZONE.) 
Hvis gammel: er TRUE, virker PRINT efter den gamle definition, 
idet default for ZONE sættes til 0, og komma benyttes som skille- 
tegn for tabuleringer. Semicolon betyder så, at der laves et enkelt 
mellemrum. Ved opstart af maskinen og ved RUN udføres 
option(1,FALSE). Hvis option indføres i et program, som skal kunne 
udføres både under COMAL 2.01 og 2.02, må option kun kaldes, når 
ZONE er 1 ved opstart af et program. 


Eksempel: 0010 IF ZONE THEN option(1,1) 
0020 … 


Det er en fordel at bruge den nye ZONE definition, bl.a. fordi man 


hermed undgår, at komma, når det forekommer i ASCII-filopera- 
tioner, får en uventet betydning. 


option (2,postilstand;/) 
er en procedure, der er indført på grund af fejl i 1541/1571 disk- 
ettestationerne. (Denne procedure erstatter den tidligere setrecord- 


delay.) Parameteren postilstandit har følgende betydning: 


postilstandt: bit 7 (værdi 128) angiver, at status fra diskette- 
stationen læses efter alle positioneringer 
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af læse/skrivehovedet. 


bit 6 (værdi 64) angiver, at der også position- 
eres efter alle skrive/læseoperationer. 
bit 0 (værdi 1) angiver, at der før positionering 


kontrolleres, at foregående diskoperation 
er afsluttet. Dette sker ved at læse i 
diskdrevets hukommelse. Denne operation 
kan være inkompatibel med andre drev end 
1541 eller 1571. 


Når maskinen tændes, udføres option(2,128). Indtil fejlene rettes 1 
1541/1571, er det derfor nødvendigt at udføre option(2,128+64+1). 
Dette gør diskoperationer langsommere, men fejlfrie. Hvis der kun 
læses fra en relativ fil, er det tilstrækkeligt at udføre 
option(2,128+64). 


resetmapping 


er en procedure, som sætter "normal" afbildning (eng; mapping) af 
tegn, altså ligesom i C-64 kapslen: 


normal afbildning ved modtagelse: 


97.125 => 65…93 (små bogstaver) 
65…93 z5 193.221 (store bogstaver) 
95 => 164 (understreg tegnet) 


normal afbildning ved afsendelse. 


65…93 => 97.125 (små bogstaver) 
193.221 => 65…93 (store bogstaver) 
164 => 95 (understreg tegnet) 


Bemærk, at når afbildningen ændres, gælder den for alle filer, der 
er åbnet med /a+, og afbildningen gælder, indtil der slukkes for 
makinen, eller den ændres med setmapping eller resetmapping. Se 
også setmapping. 
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rs232status 

er en funktion, som returnerer værdien af serielportens statusreg- 
ister og derefter nulstiller registeret. Funktionen returnerer følgende 
værdier: 


[7] [6] [5] [4] (3) [2] [1] [0] <-- bit position 


er EG paritetsfejlbit 
| herre raser framing error bit 


RR BE TER es SE ES ESS rx buffer overrun 
RESTER SE SES SETE ED ESRRSE SEES rx buffer tom 
PERS SET SEES S ES EEE DEERE E EDER SE TØS Se CTS signal mangler 
PEER ESS SEERE SEE SSR EEN SEEST ikke brugt 
ES SRr ER SE SEES RAE ESES EL SUE BEREDTE R EN ER DE sa DSR signal mangler 
HØRE FREE SE RsS SE BESES EDER SEES EN Ser SEER RSD ER SEE Er net eye Er BREAK detect bit 


Bemærk, at bit [3] (rx buffer tom) kan aflæses efter GET$. Den vil 
være lig med 1, hvis det ønskede antal tegn ikke var til stede i rx- 
bufferen. Rx er en forkortelse for det engelske ord receive, som 
betyder modtage. 


setmapping (retningÆ,tegn$,til tegn$) 


er en procedure, som letter konvertering af tegn ved kommunikation 
med andre systemer, f.eks. via en RS-232 grænseflade. Konvertering 
var muligt 1 C-64 COMAL i filsystemet, f.eks. ved at skrive /a+ 
efter et filnavn, og setmapping er en udvidelse af denne facilitet. 
Parameteren retningit er 0 for modtagelse (READ, GET eller INPUT 
FILE) og 1 for sende (WRITE eller PRINT FILE). Proceduren set- 
mapping præciserer, at tegnet tegn$ bliver erstattet af til tegn$ 
under efterfølgende overførsler. 


setscreen2 (skærm$) 


er en procedure, som overfører en del af tekstskærmen, som tid- 
ligere var gemt ved hjælp af getscreen2. Billedinformationen er 
gemt 1 strengen skærm$. Billedet placeres med øverste venstre 
hjørne i det aktuelle tekstvindue og beskæres om nødvendigt. Des- 
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uden sættes markørfarve og position som angivet i skærm$. Bemærk, 
at getscreen2 og setscreen2 ikke er kompatible med getscreen og 
setscreen, som kun arbejder på 40-tegnsskærmen, og som altid 
arbejder med hele skærmen. Bemærk, at setscreen2 og getscreen2 
ikke kan bruges til at overføre skærmbilleder fra 40-tegnsskærmen 
til 80-tegnsskærmen eller omvendt. Et eksempel på brugen af 
getscreen2 skan ses i programmerne "demo.window.40" og 
"demo.window.80" på C-128 Demodisketten. 


setserialport (attributer$) 


er en procedure, som ændrer standardtilstanden for serielporten 
(ligesom setprinter gør for printere). Parameteren attributer$ er en 
streng, som rummer informationer om serielportens kommunikations- 
parametre. Specifikationerne kan også forekomme i forbindelse med 
en OPEN FILE sætning eller kommando. Udover transmissionshast- 
igheden, databits, stopbits og paritet som 1 C-64 COMAL, kan man 
nu også specificere halv eller fuld duplex, handshake og ekstra par- 
itetsparametre. Alle muligheder vises i nedenstående tabel: 


parameter syntaks mulige værdier standardværdi 
baudrate b<baud> 50-2400 b300 
databits d<antal> 5-8 d7 
stopbits s<antal> 0-2 s2 
paritet p<type> n=ingen pn 
e=lige 
o=ulige 
m=mark 
s=space 
dupleks d<type> h=halv df 
f=fuld 
handshake h<type> 3=3-linie h3 
x=X-linie 
termchar$ 


er en funktion, som angiver, hvilket tegn der blev brugt til at 
afslutte indtastningen i det sidste inputfelt, som brugeren har rea- 
geret på. F.eks. returnerer termchar$ CHR$(13), når der er afsluttet 
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med <Return>. Se også INPUT, termpos, termchars$, og inputpos. Se 
C-128 Demodisketten for et programeksempel: "demo.termchar.80". 


termchars (tegn $) 


er en procedure, som definerer de tegn, der kan afslutte indtastning 
i det næste inputfelt. Standardværdien for tegn$ er chr$(13), som 
betyder, at indtastning afsluttes ved tryk på <Return>. Følgende 
tegn har en speciel betydning: 


chr$(128) afslutter ved <markør tv.>, når markøren står helt til 
venstre 1 inputfeltets første position. 

chr$(130) afslutter ved <markør th.>, når markøren står helt til 
højre i inputfeltets sidste position. 

chr$(132) afslutter, når der skrives et tegn i sidste position af 
inputfeltet. 


Termcharstegnene gælder indtil en ny termchars procedure fore- 
kommer i programmet eller indtil RUN udføres igen. 


Eksempel: 0010 USE system 
0020 termchars(""13""27"") 
0030 INPUT "Testing termchars… ": svar$ 
0040 PRINT "Du tastede på <Return> eller <Esc>!" 
0050 END 


termpos 


er en funktion som angiver, hvor i inputfeltet markøren var ved 
afslutning af indtastningen. Værdien 1 svarer til første position i1 
feltet. Se også inputpos, termchars, termchar$ og INPUT. 


textcolors (kant/,baggrundf,tekst;>) 


er en procedure, som kan anvendes til at ændre på tekstfarven på 
den aktuelle skærm. Parametrerne kant+, baggrundtt og tekstit er 
hele tal fra 0 til 15. De bestemmer farverne for skærmens kant, 
baggrund og tekst, der skrives på skærmen. Bemærk dog, at kant- 
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farven på 80-tegnsskærmen altid følger baggrundsfarven. Farve- 
koderne kan ses på bageste side i dette tillæg. 


textmode (tilstand) 


er en procedure, som tillader skift mellem 40- og 80-tegnsskærmen. 
Tilstand+ lig 0 angiver 40-tegnsskærmen, og tilstand4 lig 1 svarer til 
80-tegnsskærmen. Bemærk, at når der skiftes til 80 tegn blankes 
40-tegnsskærmen, medmindre cpuspeed er sat til 1, eller grafik- 
pakken er aktiv. 


textwindow (rækkemin,rækkemax,søjlemin,søjlemax 
er en procedure, som sætter tekstvinduet og placerer markøren i 


øverste venstre hjørne. Man kan ophæve vinduet og få adgang til 
hele tekstskærmen igen ved at taste <Alt-F> eller <Home><Home>. 


vdcpeek (register) 


er en funktion som muliggør, at man kan læse direkte fra registrene 
1 80-tegnsskærmens styreenhed. 


vdcpoke (register,tal) 


er en procedure, som gør det muligt at skrive til registrene i 80- 
tegnsskærmens styreenhed. 


C-128 COMAL 25 


26 


C-128 COMAL 


DEN NYE RAMFILES PAKKE 


Pakken ramfiles findes kun 1 C-128 COMAL kapslen. Denne nyskab- 
else er mulig, fordi ca. 40K er ledig i en Commodore 128. Det var 
oplagt for UniComal at udnytte denne plads til en avanceret form 
for datalagring. 


Ramfiles pakken åbner mange spændende muligheder for hurtig 
datahåndtering. Brugeren kan naturligvis selv bestemme, hvordan 
data skal struktureres. Det er tilladt inden for de 40K, som er til 
rådighed, at definere op til 32 RAM-filer i samme program: 


RAM-fil 1 RAM-tfil 2 


RAM-tfil 32 


datasæt 1 datasæt I datasæt I 


datasæt 2 datasæt 2 datasæt 2 


datasæt N| datasæt N, datasæt No 
Hvert datasæt (eller post) kan indeholde flere felter, som kan bestå 
af reelle tal, hele tal, oktetter (bytes), Booleske variabler (enkelte 
bits) eller strenge. For eksempel, hvis De gerne vil lave en database 


med følgende informationer: 


kundenummer (et helt tal) 

kundens navn (en streng på maks. 38 tegn) 
kundens adresse (en streng på maks. 78 tegn) 
det samlede køb (et reelt tal) 

rabat gives (ja eller nej) 


30 dages kredit (ja eller nej) 


kunne De strukturere hvert datasæt som følger: 


Et helt tal fylder 2 bytes, streng 1 fylder 40 bytes (38 + 2, der 
angiver strengens længde), streng 2 fylder 78 + 2 = 80, det reelle 
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tal fylder 5, og de to logiske variabler fylder tilsammen 2 bits (fra 
l til 8 bits optager altid 1 byte). Dette giver tilsammen 128 bytes 
for hvert datasæt. Man kan beregne lagerforbruget ved formlen: 


bytes brugt = antal poster x postlængden + antal felter x 4 + 16 


I dette tilfælde vil f.eks. 300 datasæt fylde: 300 x 128 + 6 x 4 + 16 
= 38440 bytes. Der er ialt 40.896 bytes til rådighed for RAM-filer, 


Som det vil fremgå af følgende alfabetiske beskrivelsen af de enkelte 
procedurer og funktioner i pakken ramfiles, kan datasættets struktur 
defineres ved hjælp af proceduren createrf(1,321,"I S38 S78 R LL"). 


I det følgende beskrives hver ramfiles procedure og funktion, ofte 
suppleret med korte eksempler. Se C-128 Demodisketten for et 
større sammenhængende eksempel ("RAMFILES") på brugen af RAM- 
filer. 


createrf (filnr/f,antal poster/,beskrivelse$) 


er en procedure, som anvendes til at oprette en RAM-fil betegnet 
filenrtk (1-32). Filpointeren sættes til 1. felt 1 post 1. Denne 
filstruktur ligner på flere måder en direkte fil på diskette, da man 
på forhånd skal angive, hvor mange poster filen skal rumme 
(antal postert - maksimum 32767), og hvordan de enkelte felter i 
posten skal være (beskrivelse$). Beskrivelse$g er en streng, som 
rummer oplysninger om felterne i hver post. Hvert felt beskrives af 
et bogstav (stort eller lille), der angiver felterne som følger: 


"R" eller "r" står for et reelt tal. Et reelt tal fylder 5 
oktetter 1 RAM-lageret. 

"I" eller "i" står for et heltal (integer). Hvert tal fylder 2 
oktetter. 

"B" eller "bp" står for en byte (oktet), som kan have en hel- 
talsværdi fra 0 til 255. 

"L" eller "|" står for en logisk (eller Boolesk) variabel, 


altså en enkelt bit (som er 0 eller 1). Otte 
Booleske variabler fylder 1 oktet. 

"S" eller "s" efterfulgt af et tal angiver den maksimale 
længde af en streng (højst 32767). F.eks. be- 
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tyder "S20", at der bliver plads til 20 tegn i 
feltet. Ved beregning af lagerforbruget må man 
huske, at to oktetter er afsat for hvert felt til 
information om strengens længde. 


Bemærk, at mellemrum er tilladte i strengen beskrivelse$ for at øge 
læselighed. 


Eksempler: createrf(1,100,"s5s10s40") opretter RAM-fil nummer I 
med plads til 100 poster. Hver post består af tre 
strenge, hhv. på 5, 10 og 40 tegn. 


createrf(2,50,"[ S10 BBBR LLL") opretter en RAM-fil 
(fil nummer 2) med plads til 50 poster. Hver post 
består af et helt tal, en streng med maks. 10 tegn, 
tre bytes, et reelt tal og tre logiske variable (bits). 


Se under eofrf for et kort programeksempel, og se Demodisketten 
for et større eksempel på brugen af RAM-filer. 


deletealirf 


er en procedure, som sletter alle RAM-filer i lageret. Data i en 
RAM-fil forbliver i RAM, selv om et program afbrydes. De slettes 
først, når datamaten slukkes, eller deleteallrf eller deleterf udføres. 


deleterf (filnr;%) 


er en procedure, som sletter data i RAM-filen nummer filnrs. 
Bemærk, at data i en RAM-tfil ellers ikke bliver slettet, før data- 
maten slukkes. Bemærk, hvis et program, hvori en RAM-fil bliver 
skabt, køres mere end én gang, f.eks. under programudviklings- 
arbejdet, skal filen slettes, før en fil med samme nummer kan op- 
rettes. Se også deleteallrf. 


Eksempel: deleterf(2) sletter RAM-fil nummer 2 fra lageret. 


Se under eofrf for et kort programeksempel, og se C-128 Demo- 
disketten for et større eksempel på brugen af RAM-filer. 
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eofrf (filnr;>) 


er en funktion. Når en RAM-fil skabes, oprettes der også en pointer 
eller pegepind, som i starten peger på det første felt i den første 
post. Denne pointer følger med filen, også når filen gemmes på 
diskette eller hentes ind igen. Pointeren opdateres til næste felt, 
hver gang der skrives eller læses et enkelt felt. Når sidste felt i en 
post læses eller skrives, skifter pointeren til første felt 1 næste 
post. Når sidste felt i sidste post læses eller skrives, sættes et flag 
for slut på fil. Dette flag kan testes med funktionen eofrf(filnrs) 
analogt med funktionerne EOF og EOD. Når flaget er sat, vil yder- 
ligere læsning eller skrivning til RAM-filen resultere i en fejlud- 
skrift "slut på ram fil". 


Eksempel: 0010 USE ramfiles 


30 


0020 DIM text$(5) OF 10 


0030 DATA "Volvo","Mercedes","Saab","Ford","Nissan" 


0040 

0050 nr:=0 

0060 WHILE NOT EOD DO 
0070. nr:+1 

0080 READ text$(nr) 
0090 ENDWHILE 

0100 

0110 deleterf(2) 

0120 createrf(2,nr,"s10") 
0130 nr:=1 

0140 WHILE NOT eofrf(2) DO 
0150 writestr(2,text$(nr)) 
0160. nr:+1 

0170 ENDWHILE 

0180 

0190 posrf(2,1,1) 

0200 REPEAT 

0210  readstr(2,biler$) 
0220 PRINT biler$ 

0230 UNTIL eofrf(2) 
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fieldtypet (filnr/Æ,feltnr;7) 


er en strengfunktion, som returnerer beskrivelsesteksten for de 
enkelte felter i en RAM-fil. 


Eksempel 1: 0010 USE ramfiles 
0020 deleterf(1) 
0030 createrf(1,50,"rbls10") 
0040 print fieldtype$(1,1) 


Ovenstående lille program vil skrive "r" på skærmen, svarende til at 
første felttype i beskrivelsesstrengen for RAM-fil nummer 1 er et 
reelt tal. Hele beskrivelsesstrengen kan konstrueres ved hjælp af 
følgende program: 


Eksempel 2: 0010 USE ramfiles 
0020 beskrivelse$:="" 
0030 deleterf(1) 
0040 createrf(1,50,"rbls10") 
0050 
0060 FOR felt:=1 TO ingrf(1,3) DO // antal felter 
0070  beskrivelse$:=beskrivelse$+fieldtype$(1,felt) 
0080 ENDFOR felt 
0090 
0100 PRINT beskrivelse$ 


freerf 


er en funktion, som returnerer antal ledige bytes i det lagerområde, 
som RAM-filerne udnytter. Ved opstart er der 40896 bytes ledige. 


Eksempel: Efter kørsel af programmet i Eksempel 2 under fieldtypeg 
giver PRINT freerf tallet 39914 som resultat. 


getnum (filnr;£) 


er en funktion, som anvendes til at hente et tal fra RAM-filen 
filnrt. Funktionen returnerer det tal, som filpointeren peger på, og 
opdaterer filpointeren til næste felt. 
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getrec$ (filnr;Æ,post/Æ) 


er en strengfunktion, som returnerer en streng i internt format 
svarende til posten post i RAM-filen nummer filnr+. Filpointeren 
opdateres ikke. 


getstr$ (filnr;Æ) 


er en funktion, som anvendes til at hente en streng fra filen num- 
mer filnrt. Filpointeren skal forinden være placeret korrekt ved 
hjælp af posrf(filnr+,postnræ,feltnræ+) eller som konsekvens af sek- 
ventiel læsning eller skrivning til RAM-filen. Fejlmeddelelsen "for- 
kert ram felt-type" kommer frem, hvis feltet ikke svarer til en 
streng. Filpointeren opdateres til næste felt. 


ingrf (filnr;4,tal;t) 


er en funktion, som returnerer følgende værdier for at undersøge 
formatet af en "ukendt" RAM-fil. 

talt: 1 antal reserverede poster 

2:… længden af de enkelte poster 
3: antal felter i en post 

då: aktuelt postnummer 

5 aktuelt feltnummer 


Hvis RAM-filen filnr+ ikke er oprettet, returneres altid 0. 


loadalirf (filnavn$) 


er en procedure, som sørger for at hente alle de RAM-filer fra 
diskette, som tidligere blev lagret under filnavn$. Se også saveallrf. 


Eksempel: saveallrf("(D0:alle filerne") 
loadallrf("alle filerne") 
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loadrf (filnr/,filnavn$) 


er en procedure, som gør det muligt at hente RAM-fil nummer 
filnrt, som tidligere var lagret under filnavn$, fra diskette. En evt. 
tidligere RAM-fil med samme nummer skal slettes først. For et 
eksempel på en procedure, der kan bruges til at hente en RAM-fil 
med navnet "ramfil 1", se programmet "RAMFILES", som findes på 
C-128 COMAL Demodisketten. 


posrf (filnr;g,post/,felt;Æ) 


er en procedure, som lader brugeren placere filpointeren efter behag 
1 et bestemt felt inden for en bestemt postit inden for et bestemt 
filnrt, klar til RAM-fil læse- eller skriveoperationer. See også 
eofrf, getstr$, writenum og writestr for eksempler på brugen af 
posrf. Se også demonstrationsprogrammet "RAMFILES" på C-128 
COMAL Demodisketten. 


readnum (filnr;Æ,værdi) 


er en procedure, der anvendes til at hente et tal fra fil nummer 
filnrit og overføre den til variablen værdi. Se posrf for et program- 
eksempel, der bruger readnum. Filpointeren opdateres automatisk til 
næste felt. 


readrec (filnr//,post;,streng$) 

er en procedure, som anvendes til at hente postnummer post fra 
RAM-filen fi/nrx frem og overføre den til REF-parameteren streng$8. 
Bemærk, at posten i givet fald er i internt format. Dvs. at strenge, 


hele tal, bits, bytes og reelle tal forekommer i den form, som de 
har 1 en RAM-fil. Filpointeren opdateres ikke til næste felt. 


readstr (filnr//,streng$) 


er en procedure, som kan bruges til at hente en streng$, som tid- 
ligere var gemt ved hjælp af writestr. Se posrf for et program- 
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eksempel, der viser anvendelsen af readstr. Filpointeren opdateres 
automatisk til næste felt. 


saveallrf (filnavn$) 


er en procedure, som lagrer alle eksisterende RAM-filer på diskette 
under navnet filnavn$. Alle filerne kan hentes ind igen ved hjælp 
af loadallrf(fi/navn$). Det er også muligt at lagre enkelte RAM- 
filer. Se saverf og loadrf. Bemærk, at hvis saveallrf er blevet brugt 
til lagring, kan loadrf(fi/nr4,filnavn$) ikke bruges til at hente en fil 
ind igen. Tilsvarende for saverf og loadallrf. Filformatet er forskel- 
ligt ved lagring af en enkelt eller alle filer. Hvis formatet ikke 
passer, gives fejlmeldingen "forkert format i load-fil". 


saverf (filnr;,filnavn$) 


er en procedure, som lagrer filen med nummeret filnr+ på diskette 
under filnavnet fi/navn$. 


Eksempel: saverf(1,"adresser") gemmer RAM-fil nummer 1 på 
disketten under filnavnet 
"adresser", 


writenum (filnr;,værdi) 


er en procedure, som bruges til at lagre en talværdi 1 en RAM-fil. 
Filpointeren skal først placeres ved hjælp af posrf eller i kraft af 
sekventiel læsning/skrivning, før der skrives til filen. Efter 
operationen opdateres filpointeren til næste felt. 


Eksempel: 0010 USE ramfiles 
0020 deleterf(1); createrf(1,10,"ir") 
0030 
0040 FOR talz:=1 TO 10 DO 
0050. writenum(l1,talr) 
0060. writenum(1,SQR(talx)) 
0070 ENDFOR tal 
0080 posrf(1,1,1) 
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0090 REPEAT 

0100 readnum(1,værdi) 

0110 readnum(1,kvadratrod) 
0120 PRINT værdi;kvadratrod 
0130 UNTIL eofrf(1) 


writerec (filnr/£,post/Æ,streng$) 


er en procedure som gør, at hele poster kan skrives til en RAM-fil 
på én gang. Den overførte streng$ vil være pakket i et internt 
format og LEN(streng$) vil være postlængden. Den modsatte opera- 
tion udføres med proceduren readrec( fi/nrit,postit,streng $). Den tekst- 
variabel, som der læses til ved hjælp af readrec, skal være dimen- 
sioneret til mindst denne længde. Filpointeren ændres ikke af denne 
procedure. 


writerefrec (filnr;,post/,streng$) 


er en procedure, som kan bruges til at skrive en hel post ad gangen 
til en RAM-fil. Brugen af denne procedure i stedet for writerec er 
tids- og lagerbesparende. LEN(streng$) er postlængden. Bemærk, at 
det er muligt at udføre den modsatte operation ved hjælp af 
readrec(filnrit,postit,streng$). Strengen, som posten læses til, skal 
være mindst lige så lang som postlængden. Operationen ændrer ikke 
på filpointeren. 


writerefstr(filnr;Æ,streng$) 
er en procedure, som anvendes til at lagre en streng$ i en RAM-fil. 
Brugen af writerefstr i forhold til writestr er tids- og lagerbe- 


sparende. Den modsatte operation kan udføres ved hjælp af proce- 
duren readstr. Filpointeren opdateres til næste felt. 


writestr (filnr;g,streng$) 


er en procedure, som kan bruges til at lagre en streng$ til en 
RAM-tfil. Forinden skal posrf være udført således, at filpointeren 
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står ved den rigtige post og det rigtige felt. Efter operationen 
opdateres filpointeren til næste felt. 


Eksempel: 0010 USE ramfiles 


0020 deleterf(1);createrf(1,6,"s8s10") 
0030 

0040 DATA "Boeing","Lockheed","Douglas","Rockwell", 
0045 DATA "Cessna","Piper" 

0050 DATA " 747" " Electra"," DC-3"," Commander", 
0055 DATA " 172"," Cherokee" 

0060 

0070 FOR postzx:=1 to 6 DO 

0080  posrf(1,postæ,1) 

0090 READ fabrik$ 

0100. writestr(1,fabrik$) 

0110 ENDFOR postzø 

0120 

0130 FOR postz:=1 TO 6 DO 

0140  posrf(1,postt,2) 

0150 READ flyg$ 

0160 writestr(1,fly$) 

0170 ENDFOR postz 

0180 

0190 posrf(1,1,1) 

0200 WHILE NOT eofrf(1) DO 

0210 readstr(1,fabrik$); readstr(1,fly$) 
0220 PRINT fabrik$,fly$ 

0230 ENDWHILE 


Følgende fejlmeddelelser er nye og vedrører pakken ramfiles: 
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: ram file already created (ram fil allerede oprettet) 

: ram file not created (ram fil ikke oprettet) 
invalid ram file number (ulovlig ram fil-nummer) 
invalid ram record number (ulovlig ram post-nummer) 

error in descriptor string (fejl i beskrivelses-tekst) 

wrong ram field type (forkert ram felt-type) 

t anvalid ram field number (ulovlig ram felt-nummer) 

: end of ram file (slut på ram fil) 

: wrong file type (forkert fil-type) 


C-128 COMAL 


ANDRE NØGLEORD 


Udover systempakken og den nye ramfiles pakke er der sket for- 
bedringer, udvidelser eller ændringer i følgende dele af C-64 
COMAL: 


COMAL-kernen 
grafikpakken 
spritepakken 
fontpakken 


kk kb 


En del af disse ændringer skyldes, at den nye COMAL version 2.02 
kan udnytte C-128”erens 80-tegnsskærm. Desuden skyldes en del 
ændringer, at , og ; har fået en ny betydning i COMAL efter det 
sidste internationale standardiseringsmøde. Også IN blev ændret lidt 
ved dette møde, som blev afholdt i Danmark i september, 1986. 


NØGLEORD FRA COMAL-KERNEN 
BASIC 


er en kommando, som kan bruges til at forlade COMAL og gå over 
til Commodore BASIC 7. Det er muligt at komme tilbage igen med 
kommandoen SYS 14%4096. Udfør BANK 15 før SYS kommandoen, 
hvis BANK i BASIC har været ændret. 


Eksempel: BASIC hopper fra COMAL til BASIC. 
SYS 1474096 hopper tilbage til COMAL igen. 


GET$ (filnr/Æ,antal tegn) 


er en funktion 1 COMAL kernen. Det er ændret således, at når GET$ 
anvendes på en fil med nummeret filnrt, der er åbnet til seriel- 
porten ("sp:") for at hente antal tegn4t, hentes kun det antal tegn, 
som der er i RS-232 modtagebufferen. Dvs. at programmer ikke vil 
"blive hængende", når der intet tegn er i bufferen. 
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IN 


er et nøgleord, som har fået en lidt anden betydning i C-128 
COMAL. Nu vurderes streng1$ IN streng2$, hvor streng1$ er den 
tomme streng (""), til FALSE altså 0. I C-64 COMAL blev dette 
vurderet til LEN(streng2$)+1 altså sandt. 


Eksempel: INPUT "Skal vi gå videre (j,n)?":svar$ 
IF svar$ IN "jJ" THEN DELETE "program" 


I C-64 COMAL vil programmet eksekvere DELETE "program", selv 
om brugeren ikke svarer "j" eller "J" men blot taster <Return>, så 
svar$ bliver den tomme streng. Dette sker ikke i C-128 COMAL, da 
svar$ IN "jJ" bliver vurderet til FALSE, når svar$="", Nu skal 
brugeren taste j eller J, ellers bliver THEN-delen ikke udført. 


INPUT 


er et nøgleord fra COMAL kernen, som har fået udvidede muligheder 
med C-128 kapslen. Attributter (understregning, omvendt tekst og 
blink) bevares 1 et inputfelt. F.eks. bevares omvendt tekst, selv om 
feltet slettes med <CIr/Home>. I lighed med PRINT sætningen virker 
, og ; nu anderledes, når de benyttes som afslutning af en INPUT 
sætning. 


Eksempel: 0010 PAGE 
0020 INPUT "Er vejret OK (j/n)? ":svar$; 
0030 IF svar$="j" THEN 
0040 PRINT "Godt, vi tager afsted." 
0050 ELSE 
0060 PRINT "Så bliver vi hjemme." 
0070 ENDIF 


Semikolon betyder nu altid, at der bliver netop ét mellemrum efter 
brugerens svar, medmindre ZONE sættes til noget andet. Vognretur 
bliver ikke udført, og teksten efter brugerens svar kommer på 
samme linie. 


To procedurer er indført i systempakken for at lette arbejdet med 
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indlæsning af data: inputpos, som sætter markøren ved en given 
startposition i et inputfelt, og termchars, som bestemmer hvilke 
tegn, som kan afslutte indtastning i et inputfelt. Desuden er der to 
nye systempakke-funktioner: termpos, som angiver, hvor i inputfeltet 
markøren var ved afslutning af en indtastning, og termchar$, som 
angiver tegnkoden for afslutningstegnet i et inputfelt. Se under 
hver af disse for flere informationer samt programmet 
"demo.termchar.80" på C-128 Demodisketten. 


PRINT 


er et nøgleord, som kan bruges som sætning eller kommando til at 
skrive data på en udskriftsenhed som en skærm eller en printer. I 
forbindelse med brugen af PRINT-sætningen har komma (,) og semi- 
colon (;) fået en lidt anden betydning. Se INPUT og ZONE for en 
nærmere omtale herom samt programeksempler. 


SIZE 


er en kommando som bruges til at vise, hvordan lageret er anvendt 
til programmer, data og RAM-filer: 


Eksempel: SIZE 
prog data free 
00065 00000 40889 


ramfiles: 
used free 
00982 39914 


ZONE [værdi] 


er et nøgleord, som kan bruges som sætning, kommando eller funk- 
tion. ZONE har fået en lidt anden betydning i C-128 COMAL, end 
den har 1 C-64 COMAL. Nu er semicolon (;) det skilletegn (i stedet 
for komma), som ZONE virker på. Standardværdien er nu 1 (tidligere 
0), således at semicolon får samme betydning som før, når ZONE 
ikke er sat. Når ZONE sættes til en værdi, bliver der dette antal 
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pladser til hver tabulering. Skilletegnet komma (,) virker således nu 
altid kun som et skilletegn og bliver ikke påvirket af ZONE. 


Eksempel: 0010 huskzone:=ZONE // ZONE kan bruges som funktion 
0020 ZONE 10 // eller som sætning. 
0030 
0040 FOR nr:=1 TO 5 DO 
0050 PRINT nr;nr;nr 
0060 ENDFOR nr 
0070 
0080 ZONE huskzone 


Denne ændring er gennemført for at sikre sig et skilletegn - nemlig 
, 7 Som ingenting betyder. Dette er værdifuldt bl. a. fordi komma 
også bruges som dataskilletegn ved ASCII-filoperationer. Tidligere 
kunne man risikere, at uventede mellemrum dukkede op i en fil, på 
grund af en sætning som PRINT FILE a$,b$,c$, der blev udført, 
mens ZONE var forskellige fra nul. I C-128 COMAL kan dette ikke 
ske. Ændringen er tiltrådt af COMAL Standardiseringsgruppen i 
september 1986. 


NØGLEORD FRA GRAFIKPAKKEN 
textcolor (farve; 


textborder (farve 
textbackground (farve; ) 


disse procedurer fra grafikpakken, der hver har en farve+ (0-15) som 
parameter, virker kun på 40-tegnsskærmen. Bemærk, at alle øvrige 
muligheder fra tastatur og sytempakken gælder for den aktuelle 
skærm. Proceduren textcolors fra systempakken skal bruges, når 
man vil ændre tekstfarven på 80-tegnsskærmen. Se sidste side af 
dette tillæg for en farvekodeoversigt. 

NØGLEORD FRA SPRITEPAKKEN 

getshape$ (tegningnr;/) 


er en strengfunktion i spritepakken, som returnerer en streng med 
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indholdet af tegningen med nummeret tegningnr+. Den er den inverse 
operation af define(tegningnri,tegning$). 


NØGLEORD FRA FONTPAKKEN 
discardfont 


er en procedure i pakken font. Den restorerer standardtegnsættet, 
også selv om der har været udført en keepfont. Bemærk, at i 40- 
tegnstilstand frigives arbejdslager, som har været anvendt til fonten, 
først efter NEW eller DISCARD. 


selectfont (tegnsæt) 


er en procedure i fontpakken, som bevirker, at der skiftes til font 
nummer tegnsætit på den aktuelle skærm. Lovlige værdier for 
tegnsætt er 0 og 1 på $80-tegnsskærmen og 0, 1, 2 og 3 på 40- 
tegnsskærmen (dog ikke 0 eller 1, hvis der ikke er et 
brugerdefineret tegnsæt). 


Eksempel: USE font 


USE system 

textmode(1) /l[…… vælger 80-tegnsskærmen. 
loadfont("font1") //…… henter en font-fil fra diskette. 
selectfont(1) /l…… aktiverer font 1 til brug. 
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Appendiks A: PROBLEMLØSNING 


PROGRAMMET KØRES, MEN INTET SES PÅ SKÆRMEN: 


Efterse, at alle de nødvendige kabler er på plads. Det kan være, at 
programmet er beregnet til kørsel på 80-tegnsskærm, og datamaten 
er tilsluttet en 40-tegnsskærm eller omvendt. Hvis det er muligt, 
kan man skifte til den anden skærm. Bemærk også, at 40-tegns- 
skærmen ikke kan bruges, hvis man har valgt en clockfrekvens på 2 
MHz ved hjælp af systempakke proceduren cpuspeed(2). Brug i 
stedet cpuspeed(0) (som er standard ved opstart). 


Hvis man kun har den ene type skærm, kan følgende procedurer 
benyttes til at vælge skærmtype: 


USE system 
textmode(1) 80 tegnsskærm vælges 
textmode(0) 40 tegnsskærm vælges 


Man kan evt. anbringe én af disse i en opstartsprocedure 1 program- 
met, så man er sikker på, hvilken skærm, der bliver brugt. 


INPUT ELLER OUTPUT STÅR IKKE PÆNT PÅ SKÆRMEN: 


Det er muligt, at programmet er skrevet til en 8$0-tegns skærm og 
køres på 40-tegns skærm, eller omvendt. Redigér programmet eller 
skift skærm. Brug evt. textmode(1) eller textmode(0) for at sikre, 
at programmet altid kører på den rigtige skærm. 


DISKETTESTATIONENS AKTIVITETSLAMPE BLINKER: 


Når diskettestationens aktivitetslampe blinker, og drevet arbejder, 
uden at der umiddelbart sker noget, kan det være fordi, at systemet 
omstiller sig til en anden drevtilstand. Den gamle 1541 diskette- 
station kan godt bruges sammen med C-128 og den nye COMAL 
kapsel. På den anden side får man megen glæde af at have adgang 
til en 1570 (en hurtig, enkeltsidet diskettestation) eller en 1571 
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(hurtig, dobbeltsidet). Hvis man har C-64 disketter med COMAL 
programmer, som man gerne vil føre over til C-128 COMAL, kan 
man godt bruge de gamle disketter i den hurtige disk drive. Dis- 
kettestationen skal dog arbejde lidt (aktivitetslampen blinker) for at 
konstatere, at disketten var formateret på en 1541, før et CATALOG 
kan vises eller programfiler kan hentes. Det er muligt fra C-128 
COMAL at skifte mellem 1570/1571 tilstand til 1541 tilstand eller 
omvendt. Til dette formål kan man bruge: 


PASS "u0>m0" skifter fra 1570 (1571) til 1541 tilstand 
PASS "u0>ml1" skifter fra 1541 til 1570 (1571) tilstand 


PROGRAMLINIER HÆNGER IKKE SAMMEN PÅ SKÆRMEN: 


Når man vil redigere et program, er det jo muligt med COMAL 
version 2.02 at placere markøren på en programlinie og foretage 
ændringer. Når man så taster <Return>, bliver programlinien optaget 
1 programmet. Man kan evt. taste <Ctrl-A> for at "trække en linie 
sammen", hvis den er brudt med nogle ekstra mellemrum, fordi den 
blev listet og fylder mere end én linie på skærmen. 


Hvis et program forårsager en rulning af skærmen, kan der opstå 
situationer, hvor en del af en brudt programlinie, ikke opfattes som 
sammenhængende med resten af linien. Dette kan afhjælpes ved at 
flytte markøren op til første del af linien (den del, hvor linienum- 
meret står) og trykke på <Ctrl-A>. 


NOGLE CTRL-, ATL- ELLER ESC-KODER VIRKER IKKE: 
UniComal har udnyttet nogle indbyggede funktioner i C-128'eren. 
Har man én af de første udgaver af computeren, var nogle af disse 


tastatursekvenser endnu ikke implementeret. Dette gælder f.eks. 
<Alt-Inst>, men her kan man bruge <Esc><A> i stedet for. 
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Appendiks B - Alt-, Ctri- og Esc- koder 


Deres Commodore 128 tastatur rummer ekstra muligheder for styring 
af redigeringsprocessen og brugen af tekstskærmene. De har måske 
allerede prøvet kombinationerne <Alt-Markør op> (rul listning nedad) 
og <Alt-Markør ned> (rul listning opad), som er en god hjælp, når 
man arbejder med en programudskrift på skærmen. 


Nogle af følgende kombinationer kan udføres direkte fra tastaturet 
(d), nogle kan udføres fra et program (p), og nogle kan udføres på 
begge måder. 


fra tastaturet: 


For at udføre f.eks. <Ctrl-R> fra tastaturet, skal man holde <Ctrl> 
tasten nede og samtidig tryk på <R>. Prøv følgende: 


Eksempel: <Ctrl-R>print<Return> teksten "print" bliver vist 
i med omvendt skrift. 


Det samme gælder Alt-koderne som <Alt-I>. Hold <Alt> tasten nede 
og tast <I> tasten for at indsætte en tom linie på skærmen. 


fra et program: 
Hvis man ønsker omvendt tekst i et program, skal man blot sørge 
for, at <Ctrl-R> svarende til CHR$(18) kommer med lige før den 
tekst, der skal vises med omvendt skrift. Omvendt tekst afsluttes 
med CHR$(146). Et linieskift slår også omvendt skrift fra. 
Eksempel: 0010 invy$=CHR$(18); nor$=CHR$(146) 

0020 PRINT inv$+"PRØVETEKST"+nor$+" 1 2 3 4" 


ÆNDRINGER I FORHOLD TIL C-64 COMAL 


Ny kode: Gl. kode: Funktion: 
<Ctrl-H> <Ctrl-B> flytter markøren et ord tilbage. 
<Esc><Q> <Ctrl-K> sletter resten af en linie. 
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<Esc><K> <Ctrl-L> flytter markøren til slutningen af linien. 
<Ctrl-G> <Ctrl-X> ændrer kantfarven. 


Alt- KODER 
Bemærk, at Alt-koderne kun kan udføres direkte fra tastaturet. 


<Alt-markør venstre> d flytter markøren et ord tilbage. 

<Alt-markør højre> d flytter markøren et ord frem. 

<Alt-markør op> d ruller en listning nedad. 

<Alt-markør ned> d ruller en listning opad. 

<Alt-Inst> d skifter mellem indsæt/erstat måde. 
Indsæt måde vises med ikke-blinkende 
markør. (Ikke på tidlige C-128'ere.) 


<Alt-Del> d fjerner tegnet under markøren. 

<Alt-T> d definerer øverste venstre hjørne af 
vindue. 

<Alt-B> d definerer nederste højre hjørne af 
vindue. 

<Alt-F> d skifter til fuld skærm som vindue. 

<Alt-I> d indsætter en linie på skærmen. 

<Alt-D> d sletter en linie på skærmen. 

<Alt-E> d sletter resten af skærmen. 

<Alt-R> d sletter en linie fra program og 
skærm. 

<Alt-N> d indsætter en ny tom programlinie 
med linienummer +l. 

Ctri- KODER 

<Ctrl-A> 1 d lister en programlinie. God til at 
rette en linie tilbage med, hvis en 
rettelse fortrydes. 

<Ctrl-B> 2 d,p starter understregning (kun) på 80 
tegnsskærmen. 

<Ctrl-C> 3 d svarer til <Run/Stop>. 

<Ctrl-D> 4 d dumper grafikside til printer (se notat 
LY 

<Ctrl-E> 5 d,p skifter markørfarven til hvid. 

<Ctrl-F> 6 d flyt markøren et ord frem. 

<Ctrl-G> 7 d ændrer kantfarven på 40-tegnsskærm. 
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<Ctrl-G> 
<Ctrl-H> 
<Ctrl-I> 
<Ctrl-J> 
<Ctrl-K> 
<Ctrl-L> 
<Ctrl-M> 
<Ctrl-N> 
<Ctrl-O> 
<Ctrl-P> 


<Ctrl-Q> 
<Ctrl-R> 


<Ctrl-S> 


<Ctrl-T> 
<Ctrl-U> 


<Ctrl-V> 
<Ctrl-W> 
<Ctrl-X> 
<Ctrl-Y> 
<Ctrl-Z> 
<Ctrl-[> 

<Ctrl-]> 


notat l: 


notat 2: 


7 p ringer klokken. 

8 d flytter markøren et ord tilbage. 

9 d,p tabulerer. 

10 d,p flytter markør til ny linie (linefeed). 

11 d,p sætter lock out <C=><Shift> på 40- 
tegnsskærm. 

12 d,p sætter unlock <C=><Shift> på 40- 
tegnsskærm. 

13 d,p genererer vognretur (carriage return) 
og ny linie. 

14 d,p sætter små/store bogstaver (på 40- 
tegnsskærm). 

15 d,p sætter blinkende tegn (kun 8$80- 
tegnsskærm). 

16 d sender kopi af aktuel tekstskærm til 
printer (se notat 2). 

17 d,p flytter markøren nedad én linie. 

18 d,p sætter omvendt tekst på den aktuelle 
skærm. 

19 p flytter markøren til linie 1, søjle 1 
<Home>. 

20 d,p sletter et tegn <Del>. 

21 d sætter grafikfunktionstasterne ud af 
drift. 

22 d udfører textcolors(6,6,1) - blå skærm 
med hvid tekst på aktuel skærm. 

23 d udfører textcolors(11,15,0) på den 
aktuelle skærm. 

24 d,p tænder/slukker tabulatorstop. 

25 d ændrer baggrundsfarve. 

26 d,p ændrer standardfarver. 

27 d,p <Esc>. 

29 d,p flyt markør til højre. 


<Ctril-D> gælder kun Commodore MPS-801 kompatible 
printere, hvor grafikdump er mulig. 


Hvis <Ctrl-P> giver dump af den aktive tekstskærm uden 
korrekt vognretur, prøv da USE system og proceduren 
setprinter("lp:/1+"). 
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Esc KODER 


Alle C-128 Escape-koder kan anvendes under redigering undtagen 
<Esc><L> og <Esc><M>, som slå skærmrulning til og fra, samt 
<Esc><E> og <Esc><F>, som slår markør blink til og fra. Bemærk, at 
Esc-koderne - i modsætning til Ctrl-koderne - tastes som en sekvens 
af tastninger. F.eks. for at skifte fra 40-tegns- til 80-tegnsskærmen 
eller tilbage igen tastes <Esc> og bagefter <X>. 


<Esc><O> ophæver anførsels- og indsæt-tilstand. 
<Esc><Q> sletter til slutningen af aktuel linie. 
<Esc><P> sletter til start af den aktuelle linie. 
<Esc><(W> sletter til slutningen af skærmen. 

<Esc><J> flytter markør til start af aktuel linie. 
<Esc><K> flytter markør til slutning af aktuel linie. 
<Esc><A> starter auto-indsæt funktion. 

<Esc><C> slutter auto-indsæt funktion. 

<Esc><D> sletter den aktuelle linie. 

<Esc><I> indsætter en linie. 

<Esc><Y> sætter standard tabulatorstop (8 mellemrum). 
<Esc><Z> sletter alle tabulatorstop. 

<Esc><V> ruller skærmbilledet opad. 

<Esc><W> ruller skærmbilledet nedad. 

<Esc><G> aktiverer klokken (se <Ctrl-G>). 

<Esc><H> slår klokken fra så den ikke reagerer på <Ctrl-G>. 
<Esc><E> undertrykker markørens blink. 

<Esc><F> sætter markøren i gang med at blinke. 
<Esc><B> sætter skærmvinduebund til markørpositionen. 
<Esc><T> sætter skærmvinduetop til markørpositionen. 
<Esc><X> skifter mellem 40- og 80-tegnsskærm. 


Følgende gælder kun 80-tegnsskærmen: 


<Esc><U> skifter til understregningsmarkør. 
<Esc><S> skifter til blokmarkør. 

<Esc><R> sætter skærmen til negativ udskrift. 
<Esc><N> sætter skærmer tilbage til normal skrift. 


Alle Esc-koder kan bruges under programudførsel. 
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Appendiks C: MASKINEKODE VEJLEDNING 


Dette er et tillæg til kapitel 8 i COMAL for Commodore 64, som 
handler om, hvordan man knytter et maskinekodeprogram til COMAL 
version 2.02 for Commodore 128. Dette tillæg beskriver kun for- 
skellene mellem C-64 og C-128. 


OPDELING AF RAM: 
RAM bank 0: 


0-8 KB rummer systemvariabler for kernen, COMAL, processor- 
stakken, og skærmhukommelse (1-2 KB er 40-tegnsskærm- 
hukommelsen). 

8-48 KB rummer lager for COMAL-program, navntabel samt stak. 
Her kan også anbringes pakker, hvorved man tager af 
brugerlageret. Hvis tegnsæt anvendes, anbringes de for 
40-tegnsskærmen fra 43-48 KB. 

48-64 KB kan anvendes til maskinsprogspakker, som ikke tager af 
brugerlageret (området fra $FF00 til $FFFF må dog ikke 
anvendes). 


RAM bank I: 


0-8 KB er fælles RAM (common RAM area), dvs. at RAM 0 også 
adresseres i dette område. 

8-48 KB anvendes til RAM-tfiler. 

48-64 KB bruges til grafik samt diverse tabeller (filmapping, mm). 


Input/Output- (I/O-) området ligger som i C-64 fra 52-56 KB. 


FØLGENDE ROM'ER FINDES I COMMODORE 128: 


16-48 KB BASIC-fortolker 

48-52 KB EDITOR (40/80-tegnsskærme) 
52-56 KB Standard dobbelttegnsæt 
56-64 KB KERNEL 
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COMAL-kapslen er opdelt i 6 sider af hver 16 KB, som alle befinder 
sig i adresseområdet 48-64 KB. Ved hjælp af bank-omskiftning 
opnås, at et 96 KB system kun optager 16 KB i Commodore 128. 
Bemærk, at COMAL-kapslen ligger i samme adresseområde som 
EDITOR og KERNEL. 


LAGERSTYRING: 


Styring af C-128”erens hukommelsesområde foregår ved hjælp af en 
speciel MMU (memory management unit) kreds. Styring af kapse!- 
banks foregår på samme måde som i C-64, dog er porten (OVERLAY) 
ændret, så den ikke mere er en "write-only" port. Nu kan indholdet 
også læses. 


OPBYGNING AF MODULER: 


Modulerne er opbygget på helt samme måde som i C-64 kapslen, 
dog ændres .lib c64symb til .Jlib c128symb (.lib c128symb svarer til 
Jlib c128symbl + .lib c128symb2 uden kommentarer, mm.). Desuden 
vil <startadresse> typisk være $C000 i stedet for $8009. Nu angiver 
.byte <map> hukommelsesområder, og betydningen af forskellige 
mapværdier fremgår af følgende tabel. Samme hukommelsesområder 
gælder også for SETPAGE i systempakken: 


mapværdi lagerområde (memory map) 
1 RAM 0 
2 RAM 0 + I/O 
3 RAM I 
4 RAM 1 + I/O 


5 COMAL-kapsel + RAM 0 
6 COMAL-kapsel + RAM 0 + I/O 
7 COMAL-kapsel + RAM I 
8 COMAL-kapsel + RAM I + I/O 


COMAL-kapsel + RAM 2 
10 COMAL-kapsel + RAM 2 + I/O 
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mapværdi lagerområde (memory map) 


11 COMAL-kapsel + RAM 3 

12 COMAL-kapsel + RAM 3 + I/O 

13 KERNEL + RAM 0 + I/O 

14 KERNEL + RAM 0 + CHARROM 

15 KERNEL + RAM 0 + I/O + BASIC + MONITOR 


Af disse hukommelsesområder kan alle anvendes som parameter til 
SETPAGE, men kun de områder; som angiver RAM 0, kan anvendes 
som <MAP> i moduler. Når DEFPAG er lig med 2, dvs. RAM 0 + 
I/O, skal man være opmærksom på, at KERNEL ikke er aktiv i 
dette område. De mest anvendte rutiner kan dog kaldes via indirekte 
kald, som er defineret i C128SYMB. Når standardområdet (2) an- 
vendes, kan maskinkode ikke placeres i området $D000-$DFFF (I/O 
området). Hvis adgang til I/O porte ikke er nødvendig, kan map I 
anvendes uden begrænsninger i dette område. 


Før COMAL-rutiner som f.eks. LOAD og STORE kaldes, skal rutinen 
SPAGEX kaldes (A registret skal være lig med det ønskede område). 
Rutinen sætter variablerne PAGEX og MAPX, som angiver hukom- 
melsesområdet. 


HVOR MODULER KAN ANBRINGES: 


Moduler kan anbringes i RAM 0 fra $2100-$FEFF. Hvis start-adres- 
sen er mindre end $C000, begrænses dog brugerlagerområdet. Om- 
rådet $AC00-$BFFF må dog ikke anvendes, hvis FONT-pakken an- 
vendes til 40-tegnsskærmen. 


HVOR MODULETS VARIABLER KAN ANBRINGES: 


Variabler, som skal overleve fra kald til kald, kan anbringes 1 selve 
modulet eller i området $1200 til $12FF. Desuden kan tape- og RS- 
232-buffere bruges, forudsat at de ikke bruges i forvejen. I zero- 
page er kun lagercellen $FF ledig. (Adresserne $4C og $56 er fejl- 
agtigt angivet som frie 1 C-64.) Adresserne på zero-page variabler 
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(INF1….TXTHI) er uændrede, adressen på COPY2 og COPY3 er de 
samme i C-64 og C-128: COPY2 $0047-$0048, COPY3 $0049-$004A. 
RANGES er flyttet til $1768-$1787 og TXT til $09A1-$09F0. 


PAKKEEKSEMPEL: 


Pakkeeksemplet på C-128 Demodisketten er ændret som beskrevet. 
Det vil sige: 


lib C64symb 
.opt list slist dette modul 


+—$8009 ;startadresse 
er ændret til: 


lib C128symb 
.opt list slist dette modul 


+2$C000 ;startadresse 
Som det ses af ovenstående, vil det i de fleste tilfælde være let at 
tilpasse en C-64 pakke, så den også kan køre på en C-128. 
LITTERATUR: 
For flere oplysninger om COMAL pakker, se den udmærkede bog: 


Jesse Knight, COMAL 2.0 Packages, udgivet af. COMAL Users Group, 
5501 Groveland Terrade, Madison, WI 53716-3251 USA. 


Bogen kan fås 1 Danmark ved henvendelse til: 
COMAL TODAY DK 


Postboks 122 
DK-2300 København S 
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STIKORDSREGISTER 


afbildning af tegn 21 
Alt-koder 44,46 
anførselstegn 18 


BASIC 14,37,49 

bell 15 
beskrivelsestekst 30 
bin$ 15 

blokmarkør 17 
Boolesk variabler 27,28 
byte 27,28 


C128SYMB 9,51 
char”in”buffer 16 
clearbuffer 16 
clockfrekvens 16 
COMAL TODAY DK 52 
COMAL Users” Group 52 
cpuspeed 16,19,28,43 
Ctrl-koder 44,46 
cursormode 16 


databits 23 
datalagring 27 
datasæt 27 
deleteallrf 29 
deleterf 29 
demo.termchar.80 19,39 
demo.window.40 17 
demo.window.80 17 
discard 41 
disketteoperationer 7 
diskettestation 20,43 
dobbelttegnsæt 49 


EDITOR 49 
eofrf 29 
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Esc-koder 44,48 


farvevalg 13 
fieldtype 30 
filer 12 
filpointer 29 
fontpakken 7,41 
fonts 13 

freerf 31 

fuld duplex 23 


GET 22,37 
GET$ 22,37 
getnum 31 
getrec$ 31 
getscreen 17 
getscreen2 17 
getshape$ 40 
getstr$ 31 
grafikdump 14,47 
grafikpakken 40 


halv duplex 23 
handshake 23 

hardcopy 14 
hardcopymode 17 

hele tal 27,28 

hex$ 19 

hjælp 43 
hukommelsesområder 50 


IN 38 
INPUT 1l 
INPUT 7 
INPUT 38 
inputfelt 24 
inputpos 19 
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inputpos 39 
ingrf 32 
ingsys 19 
ingsys 6 
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KERNEL 37,49 
kernen, COMAL 37,49 
klokken 14,15 
kommunikation 12,22 
kompatibilitet 8 


lagerområder 50 
lagerstyring 50 
LINK 9 
loadallrf 32 
loadrf 32 


markørtasterne 7 
Maskinekode 49 
maskinekodeprogram 9 
moduler 50 
modulvariabler 51 
monitor 19 

MPS-801 printer 18,47 
MPS-802 printer 18 


nøgleord 1l 


oktet 27,28 
opstilling 5 
option(1) 20 
option(2) 20 


pakkeeksempel 52 
paritet 23 
paritetsparametre 23 
PASS 9 

pegepind 29 
pointer 29 
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posrf 33 

post 27 

PRINT 11 
PRINT 39 
printer 17,18,47 
problemer 43 
programlinier 44 


RAM-fil, format 32 
RAM-fil, lagring 32 
RAM-filer 8,11,27 
ramfiles, fejlmeddelelser 36 
ramfilespakken 27 
readnum 33 

readrec 33 

readstr 33 

redigering 8 

reelle tal 27,28 
resetmapping 21 
ROM'ere i kapslen 49 
RS-232 37 

RS-232 parametre 23 
rs232status 22 
rulning 6 


saveallrf 34 
saverf 34 

scroll 6 

selectfont 41 
serielport 23 
setmapping 22 
setmapping 21 
setprinter 47 
setscreen 17 
setscreen2 17 
setscreen2 22 
setserialport 23 
SIZE 39 
skærmhåndtering 13 
skærmredigering 6 
spritepakken 40 
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sprites 14 

stopbits 23 
stregmarkør 17 
strenge 27,28 
styreenhed (skærm) 25 
systempakken 15 


tegnafbildning 21 
tegnkonvertering 12 
tegnsæt, bruger 41 
tekstskærme 5 
tekstskærmudskrift 17 
tekstvindue 19,22,25 
termchar$ 23 
termchar$ 39 
termchars 24,39 
termpos 24,39 
textbackground 40 
textborder 40 
textcolor 40 
textcolors 24 
textmode 6,25,43 
textwindow 25 
transmissionshastighed 23 


urfrekvens 16 


vdcpeek 25 
vdcpoke 25 
vindue 19 


writenum 34 
writerec 35 
writerefrec 35 
writerefstr 35 
writestr 35 


ZONE 39 


ændringer fra C-64 45 
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farve- 
kode 


FARVEKODER 


farve på 40- 


tegnsskærm 


sort 
hvid 
rød 
cyan 


violet 
grøn 
blå 
gul 


orange 
brun 
lyserød 
mørkegrå 


grå 
lysegrøn 
lyseblå 
lysegrå 


farve på 80- 
tegnsskærm 


sort 

hvid 
mørkerød 
lys Cyan 


lys violet 
mørkegrøn 
mørkeblå 
lysegul 


violet 
mørkegul 
rød 

cyan 


mørkegrå 
lysegøn 
lyseblå 
lysegrå 


